home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Start.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  1.5 KB  |  87 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {
  4. Created: Sunday, January 6, 1991 at 11:20 PM
  5.     Start.p
  6.     Pascal Interface to the Macintosh Libraries
  7.  
  8.         Copyright Apple Computer, Inc.    1987-1990
  9.         All rights reserved
  10. }
  11.  
  12.  
  13. {$IFC UNDEFINED UsingIncludes}
  14. {$SETC UsingIncludes := 0}
  15. {$ENDC}
  16.  
  17.  
  18.     UNIT Start;
  19.     INTERFACE USES    Types;
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33. TYPE
  34. DefStartType = (slotDev,scsiDev);
  35.  
  36.  
  37. DefStartPtr = ^DefStartRec;
  38. DefStartRec = RECORD
  39.     CASE DefStartType OF
  40.       slotDev:
  41.         (sdExtDevID: SignedByte;
  42.         sdPartition: SignedByte;
  43.         sdSlotNum: SignedByte;
  44.         sdSRsrcID: SignedByte);
  45.       scsiDev:
  46.         (sdReserved1: SignedByte;
  47.         sdReserved2: SignedByte;
  48.         sdRefNum: INTEGER);
  49.     END;
  50.  
  51. DefVideoPtr = ^DefVideoRec;
  52. DefVideoRec = RECORD
  53.     sdSlot: SignedByte;
  54.     sdsResource: SignedByte;
  55.     END;
  56.  
  57. DefOSPtr = ^DefOSRec;
  58. DefOSRec = RECORD
  59.     sdReserved: SignedByte;
  60.     sdOSType: SignedByte;
  61.     END;
  62.  
  63.  
  64. PROCEDURE GetDefaultStartup(paramBlock: DefStartPtr);
  65.     INLINE $205F,$A07D;
  66. PROCEDURE SetDefaultStartup(paramBlock: DefStartPtr);
  67.     INLINE $205F,$A07E;
  68. PROCEDURE GetVideoDefault(paramBlock: DefVideoPtr);
  69.     INLINE $205F,$A080;
  70. PROCEDURE SetVideoDefault(paramBlock: DefVideoPtr);
  71.     INLINE $205F,$A081;
  72. PROCEDURE GetOSDefault(paramBlock: DefOSPtr);
  73.     INLINE $205F,$A084;
  74. PROCEDURE SetOSDefault(paramBlock: DefOSPtr);
  75.     INLINE $205F,$A083;
  76. PROCEDURE SetTimeout(count: INTEGER);
  77. PROCEDURE GetTimeout(VAR count: INTEGER);
  78.  
  79.  
  80.     { UsingStart }
  81.  
  82.  
  83.     IMPLEMENTATION
  84. END.
  85.  
  86.  
  87.